The National Palace Museum Experience/The National Palace Museum Experience.iso/Programs/Index.dxr/00112.ls

Text File | 1998-11-19 | 579 b | 27 lines

on prepareFrame
  global returnlist, spriteNum, endSprite, currlabel
  if getProp(returnlist, #flag) = 1 then
    set the locV of sprite 2 to getProp(returnlist, #text)
    repeat with spriteNum = 2 to endSprite - 1
      setlistposition()
    end repeat
    setProp(returnlist, #flag, 0)
  end if
end

on enterFrame
  global returnflag, returnframe, hiliterect, roomcontentsprite, currlabel
  if not rollOver(roomcontentsprite) then
    puppetSprite(hiliterect, 0)
    go(currlabel && "List")
  end if
end

on exitFrame
  go(the frame)
end

on idle
  checkroomrollover(#up)
end